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MLEDITOR 


DECUS Program Library Write-up DECUS No. 8-372 

"ML Editor" is the extended version of "GOOF", DECUS No. 8-97. It is useful 
for debugging, monitoring and editing the program in the core memory. "ML 
Editor" added the following functions to "GOOF": 


1. *1000 1234 

Swap data 1234 in LOC. 1000 

2. *1*1000 1234 ... 

1001 

Insert data 1234 to LOC. 1000 

Next address print after above op. 

3. *Z*1000 2000 ... 

Zero clears from LOC. 1000 to 2000 

4. *P*1000 2000 ... 

Print out location from 1000 to 2000 

5. *B*0002 

Binary punch out to HSP. 0002 indicates the 
blocks of punch 

1000 2000 ... 

Punch out from LOC. XXXX to YYYY 


6. Typing "RUB-OUT" reinitializes the program 

Storage: 7040-7177 

7040-7177 ... Binary punch-out routine 
7200-7577 ... Main program 


Start Address: 7200 

If you don't need the "Binary Punch-out", you can use the location 0000-7177. 
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.PALS 

? 

.PALD 

*OUT- 


*IN-S:M123 

* 

*OPT-T 


A 

7474 

ACC 

7244 

ADDR 

7246 

AGAIN 

7271 

B 

7544 

BADD 

7521 

BINP 

7126 

BPUN 

7040 

CKSM 

7153 

CODE 

7254 

CR 

7263 

CRLF 

7304 

CTR1 

7160 

C200 

7161 

FA 

7156 

FLAG 

7241 

FRST 

7520 

IA 

7155 

INDX 

7250 

LADDR 

7517 

LF 

7262 

LOC 

7417 

LOCP 

7446 

M10 

7256 

M212 

7157 

M260 

7253 

M311 

7257 

M3 20 

7445 

M4 

7255 

M66 

7260 

NB 

7154 

NUMB 

7220 

NXEL 

7055 

NXT 

7216 

OCT PC H 

7264 

PLOT 

7l 15 

PUN 

7146 

PUNL 

7073 

PI 

7556 

P240 

7247 

P252 

7242 
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P277 

7261 

P311 

7243 

P 7 

7252 

RD 

7400 

RETRN 

7205 

ROT 

7312 

ROTS 

7315 

ROTX 

7336 

SAFE 

7251 

SCND 

7245 

SL6 

7164 

SL7 

7163 

STRT 

7200 

TEMl 

7 162 

TYPE 

7340 

WRONG 

7441 

XI 

7443 

ZERCL 

7522 


* I* 


y'**************************************** 

/**** MACHINE LANGUAGE EDITOR******* 

y'**************************************** 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


EXTENDED GOOF PROGRAM IN DECUS 
OPERATION PROCEDURE; 

*1000 1 234 .... SWAP LOG. 1000 TO 1234(DATA) 

1000 1234 .. INSERT LOC. 1000 TO DATA 1234 

*P* 1000 2000 .... PRINT OUT LOC. FR. 0 

*B* 0001 .... BINARY PUNCH-OUT TO HSR 

0001 INDICATE " HOW MANY BLOCKS? 
(EASY TO CHANGE ASR33 REF. BINARY PUNCH RT.) 

1000 2000 .... BINARY PUNCH-OUT LOC. FR. 0 


>Z* 1000 


2000 


ZERO CLEAR LOC FR. TO 


IF YOU DON’T NEED BINARY PUNCH-OUT 
CORE : LOC. 7200-7577 (AVAILABLE) 

(BINARY PUNCH ROUTINE ... LOC. 7040-7177) 
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7040 

7300 

^***** 

*7040 

BPUN, 

70 41 

6026 


7042 

1777 


7043 

4776 


7044 

1775 


7045 

4776 


7046 

3353 


7047 

4315 


7050 

7200 


705 1 

4774 


7052 

1773 


7053 

7041 


7054 

3354 


7055 

4772 

NXBL, 

7056 

4774 


7057 

1773 


7060 

3355 


70 61 

1771 


7062 

4776 


7063 

1771 


7064 

4776 


7065 

4774 


7066 

1773 


7067 

7001 


7070 

3356 


707 1 

1355 


7J072 

71 20 


7073 

4326 

PUNL, 

7074 

1355 


7075 

7041 


7076 

1356 


7077 

7650 


7] 00 

5305 


71,01 

1755 


7102 

7100 


7103 

2355 


7104 

5273 


7105 

2354 


7106 

5255 


7107 

1353 


7110 

7100 


7111 

4326 


7112 

4315 


7113 

5770 


7114 

5240 



BINARY PUNCH ******* 

CLA CLL 
PLS 

TAD SAFE 
JMS TYPE 
TAD P252 
JMS TYPE 
DCA CKSM 
JMS PLOT 
CLA 

JMS ROT 
TAD ACC 
CIA 

DCA NR 
JMS CRLF 
JMS ROT 
TAD ACC 
DCA IA 
TAD P240 
JMS TYPE 
TAD P240 
JMS TYPE 
JMS ROT 
TAD ACC 
lAC 

DCA FA 
TAD IA 
STL 

JMS BINP 
TAD IA 
CIA 

TAD FA 
SNA CLA 
JMP .+5 
TAD I IA 
CLL 
ISZ IA 
JMP PUNL 
ISZ NB 
JMP NXBL 
TAD CKSM 
CLL 

JMS BINP 
JMS PLOT 
JMP STRT 
JMP BPUN 
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7115 

0000 

PLOT, 

0 

7116 

7300 


CLL CLA 

7117 

1357 


TAD M212 

71?0 

3360 


DCA CTR1 

7121 

1361 


TAD C200 

7122 

4346 


JMS PUN 

7123 

2360 


ISZ CTRl 

7124 

5322 


JMP .-2 

7125 

5715 


JMP 1 PLOT 

7126 

0000 

BINP, 

0 

7127 

3362 


DCA TEMl 

7130 

1362 


TAD TEMl 

7131 

7012 


RTR 

7132 

7012 


RTR 

7133 

7012 


RTR 

7134 

0363 


AND SL7 

7135 

4346 


JMS PUN 

7136 

1353 


TAD CKSM 

7137 

3353 


DCA CKSM 

7140 

1362 


TAD TEMl 

7141 

0364 


AND SL6 

7142 

4346 


JMS PUN 

7143 

1353 


TAD CKSM 

7144 

3353 


DCA CKSM 

7145 

5726 


JMP 1 BINP 

7146 

0000 

PUN, 

0 

7147 

6021 


PSF 

7150 

5347 


JMP .-1 

7151 

6026 


PSL 

7152 

5746 


JMP 1 PUN 

7153 

0000 

CKSM, 

0 

7154 

0000 

NB, 

0 

7155 

0000 

IA, 

0 

7156 

0000 

FA, 

0 

7157 

7566 

M212, 

-212 

7160 

0000 

CTR1, 

0 

7161 

0200 

C200, 

200 

7162 

0000 

TEMl, 

0 

7163 

0177 

SL7, 

177 

7164 

0077 

SL6, 

y/* ******** 

77 

BINARY PUNCH END ***** 
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/*** GOOF *** 





717J0 

7200 



7171 

7247 



7172 

7304 



7173 

7244 



7174 

7312 



7175 

7242 



7176 

7340 



7177 

7251 

*7200 


7200 

4304 

STRT, 

JMS CRLF 

720 1 

4304 


JMS CRLF 

7202 

3241 


DCA FLAG 

7203 

1777 


TAD FRST 

7204 

3776 


DCA LOC 

7205 

1242 

RETRN, 

TAD P252 

7206 

4340 


JMS TYPE 

7207 

4312 


JMS ROT 

7210 

7450 


SNA 

7211 

5216 


JMP NXT 

7212 

3241 


DCA FLAG 

7213 

1243 


TAD P311 

7214 

4340 


JMS TYPE 

7215 

5205 


JMP RETRN 

7216 

1244 

NXT, 

TAD ACC 

7217 

3246 


DCA ADDR 

7220 

1247 

NUMB, 

TAD P240 

7221 

4340 


JMS TYPE 

7222 

1247 


TAD P240 

7223 

4340 


JMS TYPE 

7224 

4312 


JMS ROT 

7225 

1244 


TAD ACC 

7226 

3646 


DCA 1 ADDR 

7227 

1241 


TAD FLAG 

7230 

7650 


SNA CLA 

7231 

5200 


JMP STRT 

7232 

2246 


ISZ ADDR 

7233 

4304 


JMS CRLF 

7234 

1242 


TAD P252 

7235 

4340 


JMS TYPE 

7236 

1246 


TAD ADDR 

7237 

4264 


JMS OCT PC H 

7240 

5220 


JMP NUMB 

7241 

0000 

FLAG, 

0 

7242 

0252 

P252, 

252 

7243 

0311 

P311, 

311 

7244 

0000 

ACC, 

0 

7245 

7000 

SCND, 

NOP 

7246 

0000 

ADDR, 

0 
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7247 

0240 

P240, 

240 

725,0 

0000 

INDX, 

0 

7251 

0000 

SAFE, 

0 

7252 

0007 

P 7, 

7 

7253 

7520 

M260, 

0-260 

7254 

0260 

CODE, 

260 

7255 

7774 

M4, 

0-4 

7256 

7770 

M10, 

0-10 

7257 

7467 

M311, 

0-311 

7260 

7712 

M66, 

0-66 

7261 

0277 

P277, 

277 

7262 

02] 2 

LF, 

212 

7263 

02] 5 

CR, 

215 

7264 

0000 

OCT PC H, 

0 

7265 

7004 


RAL 

7266 

3251 


DCA SAFE 

7267 

1255 


TAD M4 

7270 

3250 


DCA INDX 

7271 

1251 

AGAIN, 

TAD SAFE 

7272 

7006 


RTL 

7273 

7004 


RAL 

7274 

3251 


DCA SAFE 

7275 

1251 


TAD SAFE 

7276 

0252 


AND P7 

7277 

1254 


TAD CODE 

7300 

4340 


JMS TYPE 

730] 

2250 


ISZ INDX 

7302 

5271 


JMP AGAIN 

7303 

5664 


JMP 1 OCT PC H 

7304 

0000 

CRLF, 

0 

7305 

1263 


TAD CR 

7306 

4340 


JMS TYPE 

7307 

1262 


TAD LF 

7310 

4340 


JMS TYPE 

7311 

5704 


JMP 1 CRLF 

7312 

0000 

ROT, 

0 

7313 

1255 


TAD M4 

7314 

3250 


DCA INDX 

7315 

3244 

ROTS, 

DCA ACC 

7316 

4775 


JMS RD 

7317 

7440 


SZA 

7320 

5712 


JMP 1 ROT 

7321 

1251 


TAD SAFE 

7322 

4340 


JMS TYPE 

7323 

1245 


TAD SCND 

7324 

3776 


DCA LOC 

7325 

1251 


TAD SAFE 

7326 

0252 


AND P7 

7327 

1244 


TAD ACC 

7330 

2250 


ISZ INDX 

7331 

7410 


SKP 

7332 

5336 


JMP ROTX 












7333 

7106 


CLL RTL 

7334 

7104 


CLL RAL 

7335 

5315 


JMP ROTS 

7336 

3244 

ROTX, 

DCA ACC 

7337 

5712 


JMP 1 ROT 

7340 

0000 

TYPE, 

0 

7341 

6046 


TLS 

7342 

6041 


TSF 

7343 

5342 


JMP .-1 

7344 

7200 


CLA 

7345 

5740 


JMP 1 TYPE 

7375 

7400 



7376 

7417 



7377 

7520 

*7400 


7400 

0000 

RD, 

0 

7401 

6031 


KSF 

7402 

5201 


JMP .-1 

7403 

6036 


KRB 

7404 

3777 


DCA SAFE 

7405 

1777 


TAD SAFE 

7406 

1776 


TAD M260 

7407 

7510 


SPA 

7410 

5241 


JMP WRONG 

7411 

1775 


TAD M10 

7412 

7710 


SPA CLA 

7413 

5600 


JMP 1 RD 

7414 

1777 


TAD SAFE 

7415 

1774 


TAD M311 

7416 

7450 


SNA 

7417 

5243 

LOC, 

JMP XI 

7420 

1773 


TAD M66 

7421 

7650 


SNA CLA 

7422 

5772 


JMP STRT 

7423 

1777 


TAD SAFE 

7424 

1245 


TAD M320 

7425 

7450 


SNA 

7426 

5246 


JMP LOCP 

7427 

7300 


CLA CLL 

7430 

1777 


TAD SAFE 

7431 

1371 


TAD (-332 

7432 

7450 


SNA 

7433 

5322 


JMP ZERCL 

7434 

7300 


CLA CLL 

7435 

1777 


TAD SAFE 

7436 

1370 


TAD (-302 

7437 

7450 


SNA 

7440 

5767 


JMP BPUN 

7441 

7200 

WRONG, 

CLA 

7442 

5201 


JMP RD+1 


/BINARY PUNCH-OUT 
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7443 

7001 

XI, 

7444 

5600 


7445 

7460 

M320, 

7446 

7300 

LOCP, 

7447 

1777 


7450 

4766 


7451 

1765 


7452 

4766 


7453 

1764 


7454 

4766 


7455 

1764 


7456 

4766 


7457 

4763 


7460 

1762 


7461 

3321 


7462 

1764 


7463 

4766 


7464 

1764 


7465 

4766 


7466 

4763 


7467 

1762 


7470 

1361 


7471 

7041 


7472 

3317 


7473 

4760 


7474 

1321 

A, 

7475 

4757 


7476 

1764 


7477 

4766 


7500 

1764 


750 1 

4766 


7502 

1721 


750 3 

4757 


7504 

4760 


7505 

7200 


7506 

1321 


7507 

7001 


75 ]0 

3321 


7511 

1321 


7512 

1317 


7513 

7650 


7514 

7410 


7515 

5274 


7516 

5772 


7517 

0000 

LADDR 

7520 

5243 

FRST, 

7521 

0000 

BADD, 


IAC 

JMP I RD 
0-320 
CLA CLL 
TAD SAFE 
JMS TYPE 
TAD P252 
JMS TYPE 
TAD P240 
JMS TYPE 
TAD P240 
JMS TYPE 
JMS ROT 
TAD ACC 
DCA BADD 
TAD P240 
JMS TYPE 
TAD P240 
JMS TYPE 
JMS ROT 
TAD ACC 
TAD (1 
CIA 

DCA LADDR 
JMS CRLF 
TAD BADD 
JMS OCT PC H 
TAD P240 
JMS TYPE 
TAD P240 
JMS TYPE 
TAD I BADD 
JMS OCT PC H 
JMS CRLF 
CLA 

TAD BADD 
IAC 

DCA BADD 
TAD BADD 
TAD LADDR 
SNA CLA 
SKP 
JMP A 
JMP STRT 
0 

JMP XI 

0 
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7522 

7200 

7523 

1777 

7524 

4766 

7525 

1765 

7526 

4766 

7527 

4763 

7530 

1762 

7531 

3321 

7532 

1764 

7533 

4766 

7534 

1764 

7535 

4766 

7536 

4763 

7537 

1762 

7540 

1356 

7541 

7041 

7542 

3317 

7543 

4760 

7544 

3721 

7545 

1321 

7546 

7001 

7547 

3321 

7550 

1321 

7551 

1317 

7552 

7650 

7553 

7410 

7554 

5344 

7555 

5772 

7556 

0001 

7557 

7264 

7560 

7304 

7561 

0001 

7562 

7244 

7563 

7312 

7564 

7247 

7565 

7242 

7566 

7340 

7567 

7040 

7570 

7476 

7571 

7446 

7572 

7200 

7573 

7260 

7574 

7257 

7575 

7256 

7576 

7253 

7577 

7251 


ZERCL, 


B, 



CLA 

TAD SAFE 
JMS TYPE 
TAD P252 
JMS TYPE 
JMS ROT 
TAD ACC 
DCA BADD 
TAD P240 
JMS TYPE 
TAD P240 
JMS TYPE 
JMS ROT 
TAD ACC 
TAD PI 
CIA 

DCA LA DDR 
JMS CRLF 
DCA I BADD 
TAD BADD 
IAC 

DCA BADD 
TAD BADD 
TAD LADDR 
SNA CLA 
SKP 
JMP B 
JMP STRT 
1 
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